





OTTAWA CHAPTER 


EDITOR - R. MULDER 


ISSUE, HÍ ` 


VOL II, 


From the 
liaud 





DESIGNER - J. TURNER 


IN 


Contente 


Tabte of 


= 
Lac 
-- 


Meeting 


Cr üuEO ug | 
E U E 


‚=ч 


wi 
ii 


ru 
han oc 
4 


ш- 


ut ен 
mr 4+ 
Ша сі 


Еа! 


Ll f-- 


Te 
Da 
бой 25 
ч 
£ 


Ld +; 


пон 


ze 


eo 
Cia c 
des 
SG Фе! 
С B 


x ل‎ Ct 
A rt 
+ 7 Д 


Ж 
ül X 


ul 0. 
м! 
С 


+! 
ul =, 
Ao E 
UD zb 
шаш 
нш”. 
cC 

t 
ЕТЕУ 
Vi 


ғай 
ua e. (UP Сі 
ы u t 8 un с E: e 


arma! WC‏ “غ 


ч 
ы] 


"4. 


t \.. жа 


rti 


бон 


Hddress 


^ с 


President 


t 


to the Editor 


Letters 


ій 

пааша 
LE 
Cu 
C Û Ql r t CC 
AZ 22 4 a7 (i Ci Ci 
nE wd р (nu 


General 
Forth 


Corner 


AZ 


SRL CE 9 
КИТЕ ТКЫ АН 
өй 
əнін 
TM 
del reel &l 
-. 


с. 


5оҒЧшаге Rewvieu 


eats, 


"s. E Obr gc QE EC C (n dE up Cum Cr ub GE o» E 6 up rte сос a TI алшы zb ui 
Y] ûl 5 E AZ T QE ug az cE CE U TIS cah dpt CH ug uz ағ CU ҢІ lO qc Ci ааа nl йк ш суы 
Use FU 94 I e. GU өч ti тй A o9 m t A. Cte ul e m unl Cu JL 
"lI оче ош Qe ita vei T з DELETE io A к 
ш.а Do d (X) Lr у! М г ац. ш 22 O Т 
NE оты. из M o e if 0) ül C up 2 Eueu ы c н 
сс а зен Cf uut Ш> cO tun mg o cu тыз ышы 
ш БУ ШЙ - na ой тыш e EA d U ûl И ш wu Ot. К> ә X 
e £ QU o uf) tmu арсы - — I ч mio t6 
^ H- э шс сы mld тере ПО t€ Q-— 4 Ч cu cn 
сш Іп noe 3m eu ec ااا‎ +“ рш e ou c ce m 
gaz * lC O O Ml qe INE ut dl u.o 9 7 n سو‎ C ul A4 ا ں‎ W ا‎ 
zoe - mf ou سا‎ шш Шым 42 0) mum Р Грег зна ы! 
em on cu CHU qi Cre i m LU dl el c ug up let CTI nat м o ul e 040 Cü 
oun Cue cao datu euge С ш ми cul * (Qc 4 
C mi сіз n ar Ce сет c т e had ex а СТОИ E 
ap gel G^ Qu) з ш майра сі (CQ (И ad mm o UA QUO ua C 
сб toam ts qi 02 f e ала аы s (Caza senno ante 9 
әш ÛC Ce CT e шаа t U. (Zo былш creme ao mpd oet eram Qe 
С ас. a жы пен aet BEA o o ra (ud febri ШШ. ds 9 59 | KU E Eu 
uU ы” оф кесіне (cg lA angemte cx 0 — аш оозе CH C à ¢ 
@ ич QU UO Cremas t. B UCM. (Qaa C9 (noo (н NIME e 
Qi A ueram CC e QE UA pU nO ^ (i (O Ce e Û qi ut 53 QU di d с хы 
ut 4... e С, ИГИ Ct ui vi (i ole uz fo Or fü lA 
ойлан Eel UNECE ссн e ай ced ане dco СТ 
Ana ЕПСТШ аа 19 Ср р dg - a Zo me СЕ эзан 
e qj Ct dg uz 4 ІЙ Ола e te! ТК ы (Б Ge nag Ааа 
M dno e mo a o IE = бы übt. cem (zn lus EC O „л SO Le za C UI 
l)e dpt Ime ры (deu dg cQ ай КИ om ше с vou ul 
C$ uoto a —(- Ql lmtmgormeee-e ECC QE xüc-eta Ui е E 
GE Zi b üt Om mu без ЕСШЕ > lL ше; се апы j j Ce Ê ueeoocu 
Тұ 


IL. pe J£ 2 U3 O Ен U шал ша s Is c (ees O Co C сү, 


Personal 


Meetinsgs 


vt QU IU fü z3 y 


= 
се 
f 


>. 
ert с 


еге 
UES €: 
in 

| 


5 
{тах зп 
тах ути 
р 


meetinss 
аә 
ChE Ct 
Е 
о” forma 


ALL 
bids s 
Review 
ent 
a 


€ 
n 
tt 
L 
Frobienms, 


urr 
€ 1 C s. * € Á 8 s 


112<Е. 
on 
mo 
Ғоецісшіп 2 


) 


ПЕШ members. 


tan 
---Inforrm 


Common 


= 
шы 
ч 
ч! 
Lt 
ш 
C 
ғ 
з 
e 
с! 
Vv) 
i 
i 
| 


a 
с 
°ч 
с 


---President 


с” 


шы 
г. 
D 
э . 
о оС” 
t. = 
т 
I 
i 
| 
i 


LOCATION. 

at the МЕС 
RCOM 

security. 
TIME. Me 

Р ‚їп. 

є&сһ 

Posted a 

FORMAT: Eath m 
the | 
ТТІ. 

мнн 

met 





CE ua c ACE wv 


season when the huge demand Gf 
previous years failed to repeat. 
г. Maxueii uiii oun 754 Of ihe 
company. 

Оп another matier, hats Orr to 
Uic &Shideier for organizins thE 
keyboard iove-in. I underzišndg 
Sewen keuboards шеге Wired up on 
Mrs. Zchidiefr's dining room 
tabie and now Wir has been 
grounded {гої ihg same way Jim 
Turner goes iii for Life, 
Everybody had а Great time 
ри зп ы Гез ага biouwing 
FUSES. 

I bought туе? a John Oliger 
expansion 5»oaraá tor mu тёё”, it 
Wili handie Four cards, ii 
intivsudes an RGE interface which 
works great, я iittie later Gn 
т be buying а Centronics 
Intierfacse card for a printer and 
maybe а Disc Drive Interface 
card. I aiso baught ап ЕРЕПМ 
binower from ihe Same suppiiert 
but haven i wired it ир get. 

І have& a disk drive suztem Form 
LARKIN Eiecironics íLarrgu Kennul 
that I m evaiuasiing and ІСІ! put 
mu report in ihe next issue о? 
the гешсісгсізтгг. 

Thanks іс Бого! Muider for 
Chaifing the une meeting in mu 
absence, 


LETTERS ТО THE EDITOR 


(again in this case-fromi 


There comes a time uhen the 
рРесріе who contribute regularilisy 
іо anu given endevour, £uch as а 
newsletter, either run out of 
thinas to put into the 

news Letter or run out of 


ihitiative and question the 
reason to continue, Either other 
Feople start particiPatina or 
the reauLiars wiil quit. NOW, for 
the most part, being communitu 
Of social minded, thE regulārs 
Will most Likely scrape the 
bottom of the barret or dig and 
research for more таієгі аі Just 
to continue the information 
flow. That is the nature of the 
beast. But where has the rest or 
the шогіа пе?т?т? 


up p, pe, Uu ^. x .% kimi: rir 
LIBRARY CORNER (as ati May cà | 

Since the time Eat I LEZÎ 
reported to the nonc pcs ter, the 
\:@:Ьгагч has aquired manu 
additions to its hOldinaz, bhile 
this іс Pieaszing tc SEE. 11 пош 
means that I am unabie to bring 
the complete iibraru inventoru 
With me to each meetina aithougsh 
I shall continue to bring thE 
cataloage and indices. 

If anuone uishes tao reserve 
a Particular program or сыза 
Like more information. Pieaze 
call 721-2129, The іа=1 dau for 
reservations іс the Tuezdau 
Prior 10 &ach meetina. 

I wouid Like to thank ail thoze 
рєор е who have contributed and 
Urge ali the other members to dc 
the same if at aii Pozsibie, 


GENERAL 


iS I IN = чт раро =ч } 
NEWS FROM OUR ROVING REPORTER 


Yours tírulu has гей ир а 
Bulletin board system for the 
Тітех/біпсізіг uzers who have а 
modem. The БЕЗ is not restricted 

oO ТЕ users, but uou Will find a 
пессаае area and a files area 
dedicated to the T5 user. The 
suüztem із UP and runnina and іс 
freg af Charge. It operates in 
the hours of 17:02 - 7.00 cr 
Uorkdauz. and all dau cn 
weekends and holidauz. The 
telephone number is 997-1967 
қагеа codes either 218 or 6133}, 

Sinclair is rumcured tū bc 
Uorkina on a scaied dour version 
Uf the GL, poszibiu linked to a 
flat ТО screen and portabie. 
Sinclair has aireadu ceased 
Production of the Spectrum and 
Feplaced it with the Spectrum+. 

Meanuhile.,the 7Х81 is еліп! 
іп Production . Mark L. Fendrick 
, On the Zebra БББ, reports a 
new interface board for the 
206&. Called the Z-LINE, it 
emuLtatez the Spectrum Interface 
1 on the TS2065,. which then lets 
dou изе Spectrum peripherals 
from Eritain,., such ас 
пісісігіуес, 


—— € —MMÀ——nQÀnÀ HER HÁT ——— ÁP—— ——Ó——————————————— 


Не also reports that the Damco 
Companu has bought the ROTRÜONICS 
Ча ғаагітє and added ап emulation 
device and it works in the 
TlS52058 mode ibut not the 
Spectrum mode, Uhile on the 
Subject of the Lafadíiive there 

= а report of a bua that «сес 
not allow the ШаҒаайгіуе 1с save 
bute 8 65525. 

here іс also ап interestina | 

"bug" in the Spectrum and Т5ӛгдес 
ісаіс. "Cursor down" 165 
represented bu СНЕ 12е: and 
'Cursor up" іс СНЕ%І24!) со uou 
uouid expect PEINT _ 
“авС”+ЕНЕ 1263 +СНБЕ{24!+СНЕф({24!! 
£UDEF" would Give uz: 

HEC 

DEF' 
Houever оп the Spectrum ue get 

"DEF", because the backspace cari 
Ье PRIHT'/ed, but the CURSOR ГОЧ 

Character cannot, The TSz8628, 
оп the other hand Gives US 
"HEC777DEF'.1ie6. neither 
Character can be ргіпі Ed, А 

SOFTLURHEE FARMS, the authors с? 
the remarkabie FORTYNINER and 
ROCHETMaH for the ZX8l have 
announced a neu product For the 
Amel, The "SPECTRUHIZERE' 
PurPOorts to enable the 25861 to 
Produce araphics ef thë safe 
qualitu and sztandards ас those 
оп the Zpectrum, "It аі=х с has 
the abilitu to convert Bazic to 
тасһіге code." й compiler? 

Рог those interested, ше have а 
TS Users Group in Torénto: 

с/о Ge&orae Chambers ІРгГес.! 

О. BDX 7274 STH "я" 
TORONTO. ONT. 
MASI 1х9 

Dues аге $230 per annum, Whith 
ргоуіайевс a subscription to their 
News Letter. - 

That's ali for now from gour 
travetiina reporter (пош 
vacationina in зиппч Greecel, 


L.FOSS 


STRUCTURED PROGRAMMING 
CORE 
PROGRRH FRAMEWORK 


This article and CONCEPT is 
Submitted bu Iris tenHolder a 
fotilous the Principles оғ the 
structured Programmi na сопсеєрР 
ас OouUtiined in numerous агі с 
on the same subject. 


ADVANTAGES 


-Similar structure РОГ all 
Programs 


-а іісііга of the first ez 
ргоагап tines shows the (ачсы1 
Oof the main components of the 


Егсагат 

-biocks сап be іссаїєа іг 
PFredetermined number гаг зе 
-Біссіс а! шачх start at аг even 
hundreds Position 

-reM statements are coniu | 
fequired to indicate subrgautires 
MOS 1 Other Program indicators 


- 


ad 


can be incorporated in print 
statements 

-no danger of having to renumber 
-ргоагат framework can be Saved 
and used as a starter Program 
incorporatina a savina rautaine 
and other standard routines 
STRUCTURE 


0-99 program outline With gosub 
Statements 

1080-999 main Proaram 

і2ә0-теги 

gooQgo-subroutines 


н framework for a Program coutd 
Look Like this: 


1 GOSUB MENU 

10 SET UP DIM STATEMENTS 
15 GOSUBE 100 295 11808) 
20 FILL ARRAYS 

25 GOSUE 200 (OR 2100) 
SO INPUT рата 

35 GOSUB зәр 

40 CALCULATIONS 

45 GOSUB 400 

50 LPRINT 

55 GOSLUBE See 

60 OTHER 

65 GOSUE беа 


75 GOSUE 700 
85 GOSUB 800 


99 STOP 

199 RETURN 
299 RETURN 
398 RETURN 
499 RETURN 
599 RETURN 
699 RETURN 
799 RETURN 
899 RETURN 


THIS PROGRAM , AS YOU CAN SEE ІЗ 
HIGHLY STRUCTURED AND CAN BE 
USED AS IS. 

THE NEXT INSTALLMENT WILL 
OUTLINE A MENU. 


А aaaea 


A SINCLAIR BUICKFIA 


Опе of the 7Х51 (TS51000)''s main 
faults іс it’s inabilituü to make 
data tapes, Linti1t nou, uhenever 


the Zx81 wrote to tape, it uoculd 
aluaus transfer both the Baz1c 
Program and whatever variables 
had been defined. 
Тһе fotiilouina tuo short М/с 
Programs wili altou ucu to read 
or urite data опіч. to tare, 
Without affecting the Basic 
Program. The Proarams are hidden 
in the first Line Of a Basic as 
а REM statement and called FF Offi 
Within the Basic Proaram buy a 
USE command. The Proaraimz Will 
transfer an arrau ot numbers or 
strings to or fram tare. Тһе 
аггач can have апч name, size 
and anu number of dimensions, 
There аге of course some setting 
UP and restrictions to foliou. 

i the ргсагате will 
Only transfer arrays. Second, 

the array to be filled bu the 
Read program must be the same 
Size as that written to tare. 
Third, the REM statement holding 
the М/С programs must be the 
first Line in the Basic program. 
And finally, the DIM command 1с 
set ир the array must be the 
first command executed iexcept 
fot REM commands), Riso, because 
it's imPossibie for tuo arrays 
tO Бе on the stack at thE same 
time. опіч one аггач can be 
written or read from tape from a 
given Basic program. 

The following listings Should 
be put into the 7х81 in the 
Order that they аррєаг. Folilou 
the Prompts. 


LISTING 1 

This іс the basic Proaram that 
wilt Load in the М/С hex Code 

that folious. irem has 90 =) 


10 REM 122456788012 54567889801z22324 
5E6E7B858501224567880122345578 
gGolec4atevoSsüclszoc45678aG01z 
545-67вад012545в72а01224. 

100 (ЕТ S$£-z'"Qiz24567G69HBCDEF' 

1106 FOR х:16514 TO 16602 

120 INPUT Н% 

1250 LET Dze 

140 FOR Y=@®@ TO 1 

150 FOR 7:0 TO 16 

160 IF Н%іҮ41) <>56 (23411 THEN 

GOTO 180 

170 LET Г-ғ2%16%%11-ҮУ) 

150 NEXT Z 

190 NEXT Y 

goo POKE X,D 

210 PRINT НФ; er 

220 NEXT X 


LISTING 2 


Run Proaram in Listina 1 and 
enter the followina hex Codes 2 
at a time ie, ED , СГ, ETC... 
keu in the ENTER keu after &ath 
inPut. 


CD E? O2 ОЕ DE 21 00 ҒҒ 25 7С 
БЕ 20 FB 10 FE ZA 10 40 = Е 


5 46 25 СЕ БЕ CD IF ӨЗ 


e 
(e 
m 
e 
m 
m 
1 
p 
m 
p 
9 
т 
() 
ь 
m 
олт omm 


Pm 10 
ІЛ 
a 


NOU ао back and Check that uau 
have entered in the cede 
correctly. Line 10 of your 
Ffroaram should nou contain altll 
Softst of strange uords and 
£umbols. Ensure that Line 100 
Гепа: = intact, If |(іпе 180 іс 
OK then delete all excert for 
Line 10, ісағе іс 1гре nou!) 
Тһе fotto owing tuc Llisetinas | 
demonstrate the use of the Беаг 
апа Write М/С proarafs. 


LISTING 5 


10 REM (ОҒ ORIGINAL IN LIST 1j 
20 DIM ntzee! 

30 FOR х-1 TO 200 

40 LET RiX! =z 

50 NEXT X | 

БО PRINT “START TAPE" 

70 INPUT D£ 
80 LET XsUS$R 16514 


LISTING 4 


10 REM (ОҒ GFIGINAL IN LIST 1: 
20 DIM сеге, 


40 INPUT C$ 

50 LET X-USR 16549 
60 SLOW 

70 FOR х-1 TO год 
80 PRINT Бїх}, 

90 NEXT х 


One last note, the М/С Programs 
fead and write to tape the same 
way that tha Zx&i геас ага 
writes Basic proarams so the 
Same volume settings should шсгі 
with these programs. 


(EXTRRCT-MICROCOMPUTING MAY 82: 





PROGRAM HINTS POKES-2000 


ATIC ATAC-INFINATE LIVES 
FOKE 36519,0 
ТОЕ ENERGY DRAIN 
PŪKE 335353.0 
SRBEE WULF -REMOUE MONSTERS 
POKE 39702,5250 
HOBEIT-UEREF RING TWICE IN ERCH 
LOCATION AND ІМ FOREST 
-DON T ANSER GOLLUNH’S 
RIDDLES 
-EXAMINE MAGIC DOOR ІМ 
GREAT HALLS THEN OPEN 
~IN GOLLUM 5 DUNGEON ASE 
THORIN TO OPEM UINDOU 
FICK YOU UP THEN GO 


НАРОМЕЕ 


ITEM: Millennia K Disc 
Drive Interface 
AVAILABLE: Ramex International 
Limited 
458945 Van Duke Rd., 
Utica, Місһілап 
ағв5057 0.5.8. 

PRICE: interface oniu-zzoo.oo0 
cCompiete unit with 
interrace, drive power, 
апа cabiles--$450.00 11,5. 

For use with 2888 oniy! 

RACVERTIZED DETAILS: 

- 5P- COS Operating system 

- loads ЗЕК in 1 second 

- Stores Брак оп 1 disc 


occupies 4K гат imini-dosi 
7.6 K main dos 


= SoOftuare support-- 

= Tasword,Tasmerge. Devpac, 

Masterfiie, OmnicalcII 
- lanauage support-- 
, 7-,Disc Pascal, "C" compiler 
~ fifst dist drive must be 
"QURD'"-S& TFI 
- discs 2 to 4 can be anu other 
ohuagard standard 

GEHERRL 
I was ent the advert for the 
Ramex Millennia K drive bu ШУ, 
Friend in the States and I 
decided to take the plunge. I 
ofdered the fuii sustem $450.00 
With mu Visa in mid-June. Four 
weeks Later I decided to give 
Ramex a cali to Check on the 
Prog8ress of ту order. To тч 
dismay, they informed me that 
Visa would not accept the 
Charges. Eut neither did Ramex 
Jive ME a Call to inform me оғ 
this fact. I 51111 uanted the 
Disc drive sustem, so I obtained 


the арргоргіате monedg orderz and 
sent them off on Мач 8.1955, The 
Unit arrived Mau 31,1985. 

It cost me an additional $74. 
Canadian to get the package 
сої of Customs, Cost todate foar 
the unit-£$710,CDM. The 
Packaging was excellent. And at 
10 165 it should be. The 
contents were: 1 interface 
fuicasedi),., 1 cable, 1 dist drive 
апа Power supply Fulty Encased, 
i Millennia Қ operators manual, 
and 1 sustems disc. 

I opened up the dist drive 
Сасіпа to Plug in the interface 
Cable and had to wonder which 
ша to plua it in. Of course 
there were no instructions far 
this minor thing. I took a 
Chance, piuagaed it in and closed 
the casing. In order to make a 
valid test of the system and ta 
єп ишиге that none of mu 
реГгірһегаіс would interfere, I 
disconnected everuthina else, 
апа Piluaged in the interface. 
“Тһе moment of truth! I PLlaced 
ih the systems disc into the 
divé, Switched оп the computer 
апа then the power supPpiu From 
the drive. NOTHING HAPPENED! 
Dismau---but шаі. how silly a 
fe. I have a Romsuitch and the 
setting uas of course on 
Spectrum. I swiched to 20682 and 
Гереатеа the procedure. 

UP Came the 2 iine coPgriaht 
from Sinclair, then thé drive 
Started up and presto the 
Copyright of SP-DO5. It works zo 
far. Everything that uou do to 
be directed to thë drive system 
is fronted bu: PRINTHUS4:. The 
UZzUal Lload.,save.cat, etc 
fOLLOWS. 5o I tru the "Сат" 
function and up comes the 
catalogue., So far so aood. 

Тһе Obvious step next would bc 
to format а пеш disc and save a 
Frogram to it. й box of 10 discs 
cost me a further $73. But I 
&hould пош Һачв an incredibile 
В million Қ of disc storage! 

The following point form For 
the major funtions falt of which 
aPPear on the 20668 keuboard?) are 
mud current findings: 

COMMAND FINDINGS 

FORMAT -un ғогїіцпаїіє і ч 
does not шогк, but 
it тач bē a Fault 
disc controller 
ChiF ОП the inter- 
face 

СОРТ 5 5, -this copies the 
SPDOS system onto 
a neu disc _ 
tormat іс рагі of 
its Function and 
ih this Case it 
worked. 

CAT -Ccataloguce ог 
directory | 

SAVE -езте ас Басіс 


and чоо сап auto- 
run Рргозгагп= 


LORD -safn& ас Basic 
(data,screen.code. 
etc...) 

ERRSE -Erase a file ог 
Program from dar, 

MERGE -Same as Basic 


But auto-run 
Proarams uiti not 
be stoPred. 

МОЧЕ -U&&d tû change 
fit& патє= ог disc 
and to transfer 
Programs from one 
disc 1с another 

There are mang more instructions 

and variations and they all work 

the same as anu top of the Line 
computer Such as ІВМ, oniy in my 


Note: 2 dos systems available 
that reside in different Places 


со that uou can get around some 
Of the ргоагат icading and 
£aving Problems. 


P «к» AED ин» qb d ане «ше GD AUD «м» «м» өне am 


COST: mau be too high for most 
20655 owners 
if retenti -Manipulation 
Of massive data bases is 
important then this mau 
21111 be cost effective 
HRFRDURRE GURLITY: 
Hs the interface casina 
has not uet arfived- 
no comment 
Тһе interface itself is 
Of high quatiitu With aL 
socketed chips and no 
JUfmPer wires 
The drive and Power supply 
are excelient Qqualitu and 
function sfoothly.coolu.if 
a bit noiselwu. 
очега і ++ #EXCELLENT + тж 
OPERRTORS MANUAL: 
Professional Lagout anc 
Presentation gets uou up 
and running, but a lesson 
in user friendlu could be 
Of some help, 
Some program ехапріке and 
the SPDOS disassembiy uould 
be of Great benefit to 
сегісше Programmers 
DEALER SUPPORT: 
Membership available 
for dos system from 
Eritain-$156 onetime fee + 
$22 for one uear. 
I wrote to Ramex about 
the casina,format problem 
and the possibilities or 
a Spectrum “fix”, but I 
have not received an 
ansuer as get. Patience! 
OVERALL ASSESSMENT: 
| Бс a novice in the Һагашаге 
fi&€ld as well as a buddins 
Programmer and Editor of the 
TSUG OTTAA Newsletter and other 
articles for other "ragas", I can 
Only offer mu novice opinion. 
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GOSUB 2354102858 

LET R-zR41 

FOR Х=1 ТОВ 

PRINT HT O,X;D5$&ix); 

THEN GOTO 358 
7,316; жүз 
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410 PRINT TAB 16; 
415 PRINT TAB 22; 
420 PRINT TAB 22;"' 
425 PRINT TAB 22; “ 
аза PRINT TAB 22 
435 PRINT TAB 22 
440 PRINT ТАБ 22 
445 PRINT TAB 22;" 
450 PRINT TAB 22;," 
455 PRINT TAB 22; “ 
460 PRINT TAB 22,” 
465 PRINT TAB 228;" 
470 PRINT TAB 15; “ 
475 RETURN 


380 


ЕМ ++®Н1РЕК HMBUSHs* | 
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1050 LET Үш”, LET TÈ sog D. БЕТТ МЕЕ LET 
1030 LET Z$= К®='@@ 000220041 LET ММай0: LET Н 
1942 GO SUB 122 I= LET ЕЕ=@: LET Мж=8@ 
1059 IF х%-“с ҮНЕМ GO ТО 268 40 FAFER 4. INK 7: BORDER 1 
{REG PRINT , ADDRESS? "; >20 GO то бос 
1009 LET YE, 100 REM жжкЕҮЕОЕЕГ ІНРОТ У 

1129 со SUB i82 TM ісе LET tm-INT i (PEEK 235724250 

118 PEINT ,,"PHONE NUMBER? '"; PEEK 23673} 7/681.: PRINT INE 0; F 
1129 LET Үз” AFER &;HT 15.28: її 

113@ по 205 тад ® 121 IF shotz? THEN LET mns: LE 
1140 PRINT AT 22.0; “PRESS ENTER T shotzQ. LET uaitzRNDz545 
KEY TO SAUVE DOR ANY | OTHER REY ТО 122 IF wait: 
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1150 GO БОБ 223 Q AND STICK (2 а THEN GO TO 2 
1180 IF 2‹›15 THEN GO TO 29 оо 
1178 FOR ісі TŪ LEN 8%-10 — 132 IF zt-5 DOR ztzi ОБ 18 THE 
1180 IF A$iJ+3 TD Jd«CODE АФГ) N PRINT HT 13,10;R$: LET MN=1 
=z THEN 80 TO i218  ,. 140 IF st-6 OR 51-2 OR 61-12 TH 
1192 LET «тазсоов Agi] EM РБІМТ AT 15,430; 0$ LET Wait =F 
1519 [ET афсафі TO J-1)4CHR$ LEN Мы Та e 
аттата а-аа =: Ba. poem AND с14<-шЕ THEN ГЕТ 
1550 G0 сағ зас 170 ТЕ с%з-а дыт c ~1 - 
1230 PRINT AT 21,0; PRESS ANY KE ЖЫЛ Ла O ааа Nile E 
эу EL .180 IF i STICK (2,23-1 AND МЫ 
1550 Єз TB 28 — | THEN LET FRz1: LET shot=shot+1 
3329 БЕм SFARDH : GO TO zee 
2000 БЕН SERRE 108 REM жйСТІСЫ ROUTINE + 
5212 Бы ede: = MR =@@ LET uwaitzuait-1: IF wait:e 
NFER SURNAME cA Ug E THEN LET uwaitze 
202a тагіт v ы. i 210 IF Мхх0 THEM LET Мх=0@ 
2220 ESR М=1 тї LEN A$-1 eio IF Мх›22й THEN LET Mxzaeze 
Saja IF LEN v$:LEN а-ы” HEN TF 229 ера. Ж co TO зае 
Е а ачаа E 225 Жі: 
спе i-i TO N-LEH Y$)! THEN 50/7 ese LET *Yvz23 
2050 LET NzN4CODE ӨМ) 2285 IP Mxi48 THEN LET Y=Y+32: 6 
,سر‎ CA TE ni ai De j +. Y - A 
ааа s ee QE qM e 240 ТР MX:70 THEN LET Y-Y«?. GO 
CUS LET Z$ iN COD Fm: ү © | 
Таны ана аа 242 IF MX:124 THEN LET Y-Y48: G 
2033 co SUB заг кес се 
2188 PRINT HT 23.0; "PRESS ""ENTE 244 IF MX:164 THEN GO TO 250 
R"" TO CONTINUE, перен TO D EGO Зерлі, = РЕВ 
3 x 24 iiir г 1з “т co E 75 = 5 ni! dis 
Bi cB suB gon — T 255 PLOT OVER 15252 
2120 PRINT AT 20,0;0%+0$ 260 DRAI OUER 1:MX-B0.Y 
8130 IF ZzCODE "P" THEN COPY 265 PLOT OUER 1,82, 72 
2142 IF 272‹›БбБЕ "D" THEN GO TO 2 270 СЕНИ OVER 1;MX-860,Y 
25- 221.50уыр,8,28: LE ANDA TER E 
2159 LET джсдпӛ: TO 8-11 жафімесор › o: l3 #8 IND 2.3 TH i 
de c a ады ыы АШ5Е 19: 60 SUE вага 
2160 LET N-N-1 25g REM xCHECK FOR HIT 
2170 GO TD газа 275 IF Мх>га AND МХБ AHD кФіі 
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2020 REM SAUE : GO TO 230 
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то 28 141278" THEN PRINT HT 9,19; “RS”; 
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THEN PAUSE 1а: GO SUE Зарр 
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£93 REM xINHITIRHLIZAHTIONH 
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с сам YOU SURUIUET raees" 

6505 LET F$zcCHE$£ і+СНЕФ 1-4" 
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610 LET G£-CHR$ Z1+4CHR$ 1+'- 


HR& 21«CHR$ 0 
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£15 FOR xzQ TO 7: FOR т=1 
ГЕНГ RH: POKE USR CRR 114547) 
б: NEXT Y: NEXT х 


620 FOR xz Тї 7: с 
FOKE USR 


E USE kt +5 .8: "Е - X,B: 
NEXT ж 

625 FOR xzl TO 11: READ LIE Ii: 
READ Líx.231: NEXT X 

630 FOR х=й TO 7: READ A: РОКЕ 


USR "L'"4X,RH. NEXT X: LET Мі 
CLLLLLLLLLLLLLLLLLLLELELLLLEL 
Hus LET T$z2z"HEC'"4F£4"DEF'4F£4-"c 
do LET 525$iíi1)12"GH": LET 5ӛігіс” 

READ В: РОКЕ 


650 FOR х=@ TO 7: 


USR CHR$ 1(15853)4X,Hh: NEXT X 

E55 FOE ХшӘ TG 7: READ A.B: РО 
E USR "R"«X,RH: POKE USR "S5"«X,ER: 
NEXT X 

E60 FOR х-о TO 7: READ A.B: РОК 


E USE "T'"«x,H: POKE USR 
NEXT Xx 

E65 LET б0%-СНГР%ф 16-4CHR:€$ dp 
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THEN PR INT IHE 


£70 LET R$:=CHR$ 16+СНЕф O-«CHES 
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675 FOF х=1 TO Е: READ 51x, 14.: 
READ 5іх,г2і: NEXT X 


бег FOE х=1 TO 5: FOR Үші ТО Е 
READ PIE TI: NEXT Y: NEXT x 

EGG ІМЕШТ INK 7; PAPER 2; “PRESS 
(EHTER3TO FIND СИТ"; Ж 


700 REH PRINT SCREEH 
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715 FOR х= та 11: PRINT HT Liz 
jDo2, LíxX,2i42; INK Б; I";: НЕХТ 
20 PRINT ІНК бат 15,0;T£$,H! i 
713; T$ 
750 FRINT INK Ә;ат 14.0; 0% 
soe FRINT AT 12,10,0% 
БОБ PRINT AT 15,23; ІНК а; FAFE 
R Б; "TIME." 
G15 PRINT AT 22,0; PAFER Е INE 


7;" SHOOT SNIFERS Аз THEY FIRE 
EUM RIGHT JOYSTICK TO AIM & F 


Szo FOKE z286728,0: PORE 23673,2: 
GO TO 1060 

зр REM xPLHYER SHOT! 

зе PEINT AT 22,0; PRHPER 7; INF. 


j^ 


гр 


H 


5 
= 


“AT 29,60; FLASH 1; { 
EEEN SHOT: IN TIME: a ВТ gi,e 
DOS i2 THE SNIPER йине SHOT YO 
езге PRINT INK Q9; PAFER 4; 
1:#Т ІК; 1i, STE, 21;:5%:і21; 


635 BEEP .4,1: PAUSE 4: BEEP .2 
©,1: PAUSE 2: BEEP .15,1: ВЕЕР . 
4,1: BEEP ,25,4: PAUSE 2: BEEF . 
2.3 : PAUSE 2: BEEP ‚2,3: PAUSE 
=: BEEP .25,1: PAUSE 1: BEEF . 4, 
1: PAUSE 2: BEEF .25,0: ВЕЕР 1,1 


o4 GO TO 560 

649 REM xHLL SNIPERS DEAD 

50 IF TE:TM THEN LET ТВ=ТМ 

555 PEINT AT 22.0; PAPER ?; INE 
=“ 


“AT га, а; FLASH ї; "TOL SHOT 
ТНЕМ ALL IN ТІМЕ: ЕМ AT =1,.8; 
BEST TIME 50 FAR:"; TB, 
ес? FOR Ү=1 TO 5: FOR Ж=1 TO 1@ 
: BEEF .Q05,xxz:. NEXT ж: NEXT Y 
S680 INPUT ІМК OQ; PEPER 7; FLASH 
1; "PRESS (ENTER: FOR NEXT GAME" 


870 LET Мх=8@: LET k£-"Qeoeceooeeo 


&50: LET MHz: LET FRzÜ 
590 GO TO таа 


1000 DATA 2,15,0.127,255.252,80,t€ 
0.6,3.25=5,192,65.255.155.0.Е0.0, 
15,255,240,55,247,р48,0,68,132,1 
E 255 ‚248, nm. єз 240,0, бә, ғо 4 ісе, 
255,126,31,52,240,0,60,138,127,2 
55,254,24.,68,48,0,60,162,255,255 
,р52,0,в6о,ә,0,58,160,127,222,г5г 
0.60.0,.0.60, 32 


“> 





1009 БЕМ +5МТРЕВ mM 
1010 CATA Ә,грв2,635,рР52,2,124.,3,г | 
52,0,124,1,252,1,124,3,68 | 
1019 REM ++ТБЕЁ PRINT AT FILE | 
1020 DATA x 1, се, SG,6,2,20,3,.,24 
.42,11,4.,24, 1а, ‚25, 2 21,8, 2e 
1029 REM SUALE 

1050 DATA 51,255 ,219,255,2Е5, 


оп) 


ЕЛ 


183,255 

1038 REM #MAN CROUCHING _ 
10240 CATH с24 9 ‚1313 2243 je uam Sold 
‚1—5 clau 

1049 REM аман DOWN 

1050 DATA 06,0,0,0,0,0,0,0,160,80, 


24? ғ”, 224, СЕ, Zá 41, ei, 255 
1059 REM HÊN STAND ING 
1060 DATA 245,115 ЕЕЕ 
1,118,255 ,36,253,250,251, 
112,255 
1869 КЕМ жМІРЕБ PRINT AT FILE 
ы C dL 


1079 REM xSNIPEE FIRING COORDS 

1060 DATA 47.,127,10,50,51,78,1120 
29; 70,937,115 110, бе, ва, 37416731 
4908 ÉÓRDÉR 55 PRPER us ' INK "а: C 


S008 SOUND 7,862:8,185;12,20;.12,80: 
FOR гей TO 192 STEP 2: SOUND e 
С: NEXT г. RETURN 


1 REM ZXEL1/T51000 PROGRARMH 
AX BROKER 


BROKER" 


PRINT AT 5,2;"SELECT:";RT 
42% PADD A NEU STOCK T ОТ 86 2; 
PEL ADD п STOCK ON FILE?";RT 
ı2; “Зу SAVE STOCK DATA?“ 
65 INPUT R 


70 GOTO 65еі1с A 
AND RZA) + (2006 AND R=3 REF) + (1000 


із 








7 ЕМ 7» 
ӘӘ LET Ы DD > 
92 GOSUB 6000 Stock 
dm 
- 1% K N ъъ 
Q6 GOSUB Беба 557 
100 LET R&c"N& 
z"NAME ОҒ B 
105 GOSUB веба йін 
192 СЫРЫ? EP. 
z(LEN R 
<=218) + (18 ROND LEN THE EL EM RE 
10 LET а$‹Р, TO 15) SRS 
212 PRINT AT 7«42zR, “Ағын, TO 1 


125 GOSUP 8955 
t2,20 TO 
8753; PRINT RT 712xR, 52285 (в, eo T 


9,85) GOSUB S595 
R$£tiR.25 TO 28 
FT FAZER, 277 RIR, е5 T 


28) 

232 GOSUB 8360 

133 GOTO (59 AND R$z"N'")€*075 RN 
D R$z'vY") 

135 GOTO 20 





, 10780 LET В = 


"43920 GOTO 1315+110 AND 


"CHANGE AN EXISTING 
STOCK" 
GOSUB RARS 


10753 GOSUB 55300 / 

1074 LET R$- "STOCK NUMBER" 

1075 GOSUB 5060 

1077? INPUT U 

1078 LET R$zAa£tU., TO YIU}? 

1079 GOSLUB 856000 

1980 PRINT AT 5, оли a s "ЗАТ 7 
аз" RN ENTRY? “AT ә.з; "ә 
) HÄNGE DELETE AN ENTRY?" ; АТ 11 






‚З; "3J RETURN TO MAIN MENU?" 
285 
1055 CLS 
10986 GOTO 10565+ (10 AND R-1204(185 
AND Rz2)-(1055 AND Rz3) 
1095 REM 
100 LET = 
1110 GOTO (1125 AND 213 ы (1430 BH 
ND МгӘ) +02575 AND Uz3)41:172z20 AND 





Uz4) (1855 AND 
REH ER ШЕ 


GOSUB 5800 

IF NzM THEN GOTO 1155 

XzF ТО W1 

PRINT AT 19.0;X 

FOR Y= к TÖ 4+52ғА (Хх) гой A$ 


p 
P» (90100 
6-40 


MOVON 
(Л 
-l 
О 
0 
o 


Y 
б LET R£sSTR£& NX) 
? GOSUB 8715 
© PRINT AT 19.Y72:;:RhtX);RhnT 19, 
J xi; URL пФ (2, зә TO 23); B$ 
SCROLL 


GOSUE 8800 
PRINT AT 21,31; 
NEXT X 

LET NzN«4F 

LET Ы3={М AND м<=62 ы (Сс AND 


EIE 56765 


ы‏ شم fab fad‏ شم ہہ fob E‏ ھم fab þa Z fab Jat‏ مرم 
pat‏ فز فل fob fab ыы‏ ھم د فز oa, fe‏ فرفر فر هم 
oO Jo X O OT UN Of OI‏ 


солоп 


95 
IF N»G THEN GOSUB 8555 
INPUT AUNI) 


edad jad fab jah fad در‎ Pd рр 
0 OU N N فر هم‎ P 
мьәһОФо000020 
* ISuimUuISSUON-0 


FOR Үз4. TO &452zn(1) "URL A 
(1,95 TO 25 
255 PLOT 591 
1230 NEXT Y 
1231 LET R£zSTR& N(UT) 
1235 GOSUB 85715 
1235 PRINT RT 19,Y/2;R(U1);RT 19 
NUL) #GZUAL A$11,20 TO Б33;в% 
i240 SCROLL 
1245 PET йт 21, 
1250 IF М›Е THEN Әбішев 5100 
1255 GOSUB 5590 
1260 GOSUB 







12972 LET REI AiL, { 
1274 GOSUD 6000 
1975 GOTO ti1300 B Uzi 
ND Liz2)4t(2200 AND =3)+ 
Uz4) «(23590 амо Pn 
SOS REM Қ 
nd xs 
R=F) +120 
227 R=2) + (30 AND б=3> +140 AND R= 


GOSUB 6520 
GOTO S59 


во 
INPUT ASIF, го TO гз) 
COTO 107 еее 





| GOSUB 60900 
GOSUB 5695 
NPUT =. ыйы ‚25 TO 28) 


m‏ ~ — هه 
оа Эй‏ -- > . 
مھ = — — س 


FOR XzF ТО М1 STEP 2 
1350 PRINT Х;ТАБ 5; (х; ТАВ 20;N 






(0; TAB 15,X«F; TAB 20;R(tXF); ; TAB 


IN 
бото 1075 
REM 


GOSUB 8815 

IF РеМ THEN СОТО 1495 
FOR XzF TO Fe. 

PRINT AT 19,86 


1465 хт 

14656 LET R€$£STR$ Рх) 
1467 GOSUB 8715 
1470 PRINT 19,Y7/2;B 
VELO А еы A$ t2,20 TO 


SCROLL 
GOSUB 8815 
PRINT AT 21,31; 
NEXT X 


LET PeP+F 
(ЕТ Va=(P AND PcG) + (6С AND 


GOSUB 5765 

INPUT P(U2) 

GOSUB 6695 

IF POG THEN GOSUB 8875 
INPUT BtU2) 

PRINT ЕТ 21, 2! 9% 

INT ЕТ 


НТ 


Сх»; 19, 
2535), B$ 


TU 


1535 xT Y 

1536 LET кессе Р (Y2) 
1537 GOSUB 8715 
1540 PRINT 


ат 
Р (УӘ) #G/VAL а%(2, ге то әз); 

EAS SCROLL 

3522 PRINT AT 21,21; 

1555 IF PoF „НЕМ GOS5uUB 25900 

1560 GOSUB 

ises GOSUB 232 





20; X 
FOR Ys4 TO &452zC (х) UAL 
(3,25 TO 2B) 
1605 PLOT Y.4 
1610 NEXT Y 
1611 LET АСЫ © Сх) 
1612 GOSUD 8715 
1615 PRINT AT 19,Ү/2;С(Х;);ВТ 19, 
O (X) xG/URL Aş (3,20 ТО 23} ; B$ 
1620 SCROLL 
GOSUB 68235 
P LES HT 21,31; 
NEXT 
LET охо +Е 
LET US3s(Q AND 


Ә‹=6) “(С AND 


FOR Yzs4 TO á* 55 sb (0 ZVAL AS 


13,0; P 
Yz4 TO û š2 sB (Ua) лоп A 


19,Y72;B(U2); RT 19 
B$ 


| 
| 


ns 


-— 


—M —— —‏ س 
---. ———————— -- 


GOSUB 8765 
INPUT 6 (уЗ) 
GOSUB 8695 
IF Ө>С VA GOSUB 8895 


PRINT RT 19.68; 
Ee US 4958 sc (U3) ZVAL n 


1651 LET R£-STR& © (U3) 

1682 GOSUB 8715 

1665 PRINT FT 219,Y/7/2,ClU32);HhT 
OtU3) #G/UAL ғ%і5,>20 TO 23) ;B$ 
{690 SCROLL 

PRINT AT 22,32; 

IF ӘУЕ THEN GOSUB 25590 
GOSUB 85825 

GOSUB 8560 

(1646 AND R£z'"Y'04(050 


19 





GOSUB 22558 


IF бшМ THEN GOTO 1785 

FOR X=F ТО W4 

PRINT AF 19,0;X 

FOR Yz4 TO 4452zD(X) /URL A$ 


XT 
БЕ LET R$=5TR$ 5 (х) 
1757 GOSUB 8715 
1760 PRINT AT 19,Y/2,D(X),HRT 19, 
5 (x) zzG/UHL R$I4, 2e тб еЗ); В$ 
1765 SCROLL 


GOSUB 86835 
PRINT AT 21,31; 
EXT X 


LET 5=5+F 
LET U4z($ AND 5<-б) 4 (iG AND 


GOSUB 8765 

INPUT 5 (04) 

GOSUB 8695 

IF $»G THEN GOSUB 8915 

INPUT DtU4) 

PRINT ЯТ 21.0; U$. 

PRINT ЯТ 18,0;5 

FOR Y=4 ТО 4452szDt(U4) "URL A 

$(4,25 TO 28) 

182a PLOT Ү,4 0 

1825 NEXT Y 

1826 LET R$=STR$ S(U4) 

1827 GOSUB 871 

1830 PRINT RT 19, Y/2;D(U4);RT 19 

,S(U4) xG/URL R$£té,20 TO 23); Вұ 
SCROLL 


1835 
PRINT АТ 21, 


184.0 31 
1845 IF 5>Ғ THEN GOSUB гесе 


2 





ЕХТ 
1901 LET R$= BOUE T (X) 


1902 GOSUB 
1905 PRINT AT 19,Y/2;E00,;HT 19, 
T (X) G/URL R$t(5, ёе TO 23); Б$ 
1910 SC 

1915 GOSUB 6845 zd 


7 


سس 





719868 PRINT RT 21,31; 


(ЕТ Т=Т+Е 
LET Мбе(ГТ AND T«zG)-4tG AND 


GOSUB 8765 
INPUT T (US)? 
GOSUB 8695 
IF T»G THEN GOSUB 8935 
INPUT Е (9,5) 


$5, ‚25 TO 28) 

96$ PLOT Y.4 

1978 NEXT 

1971 LET R$=STRS T (05) 

1972 GOSUB 6715 

1975 PRINT AT 19,Y^/2;EtUS);RhT 

T (US) xG/URL п (5,260 TO 233;В 

195a SCROLL 

PRINT AT 21,31; 

IF TOF THEN GOSUB 2650 | 

GOSUB 6845 | 

GOSUB 8360 | 
(1930 AND R&s"Y") «(59 | 


йз STOCK брата” 


LET 
2075 GOSUB вове 
O PRINT AT 210,0,"REUIND TAPE, 
START RECORDING, WAIT 10 SE 
ur AND THEN PRESS  ""ENTEmn"" 


19 
% 


ыт .. сосн” 
GOTO 50 


REM PETITIO NECARE RENNES 

GOSUB 5506 

INPUT R 

GOTO 21204(10 AND R=41) + (20 


25 
AND R=2) + (30 AND Rs3)4(40 AND R= 
213e GOSUB 8560 
2135 GOTO Sa 
GOSUB вова 


2140 
GOSUB 8680 
INPUT буге, eo TO 23) 


n 
þé 
ь 
һә 


ARNAN >» 
J O IP) O QM 


„е; "HEN шына 


О ыг 5ТЕР 2 
PRINT х;тав 5;B O0;TRB 10 

i TAB 15; X*F; STAB 20;BtX«F); i 
NEXT X 

GOSUB 6750 : 
INPUT PR) : 
GOSUB 8750 | 
INPUT BR) 
GOTO 1978 
ЕМ 


R 

GOSUDB 656500 

zs R | 
е GOTO 22154110 AND R:1) + t20 · 

ачый п=2) + 139 AND R=3) > (540 AND Rs: 


GOSUB 6590 
GOTO Бо 

GOSUB сеа 
vh EA 


NONY „00 юююююю юм 
лб 


i ini ieee 
ч 
2 
2 
x 
H 
Cn 


OOOO] ~ 
оллох. `: 


№ 
ы 
9 
N 






.%050В 8695 


^ ea47 INPUT ASIS, 25 TO 26) 

2250 GOTO 107 

8258 GOSUB 8000 E 

2260 PRINT RT 4,0; “БЕ 
ЖЕР ES Бы” 

XzF ТО ЫЗ STEP 2 

2270 PRINT Хх; ТАБ 5;CUOO;TRB 190; 0 

(X); TAB 15; X*F; TAB 20; C (X+F ; ТАВ 

25; LO СХЕ) 


х 
GOSUB 8750 











РОТ Н 
15 GOTO 2310+ (10 AND R=1l} + (2908 
ii R=2) + (30 RND R=3) + (40 AND R= 


GOSUB 55990 
GOTO 5e 

GOSUB 8000 

GOSUB 8680 

INPUT at ыды TO 23) 


GOSUB 8695 
МРОТ оз! 25 TO 2858) 





FOR m TO М4 STEP 2 
65 PRINT X; TAB S DiN; TRB 10,5 
(X) ; ТАВ Б; NEES: TRB 20;Dtx4F); ТАВ 
5; 5 (Хх JE) 
7а N х 
GOSUB 6750 






НЕМ Res 
сози" SOOO 
INPUT R 
GOTO 2405+110 AND Rz1)4t(20 
zu R=2) + (30 AND Rs3)4((40 AND R= 
GOSUB 65650 

oro 5e 
GOSUB S000 


GOSUB 658550 
INPUT as 20 TO 239 


0 


INPUT В%і5,25 TO 28) 
GOTO 1078 

GOSUB 6000 

ЭШ PRINT ат E T ‚ ©; "HERE 


2455. FOR “Хғ "TO Ке STEP 2 
2468 PRINT X, TAB 5;Etx2);TRB 1o, т 
(X) TAB 15; Х+Е; TAB 28; ECOCGHE); тав 
25; TiXxX+F) 
5 NEXT X 
GOSUB 8750 
INPUT ТҮР) 
GOSUBEB 67860 
INPUT EtR) 
GOTO 1078 
РЕМ “Ері 


LET 
LET 


ED. 









Я=м 
B=M 
FOR ағ TO ир om 


LET й=Н+Р(27) 
LET БВ=В+2 ЕР (2309 —. 
NEXT 2 рине 





-2535 LET б=єрї{р+Е 2 | 
2540 LET MAiz(tB-CxR/P)^/CXO £ (P+F) ж 
Бр; ғөз -Cxx2/mP) : 









4. OTO &2155 
2550 EM 
2555 LET zM 
256A LET BzH 
2565 FOR ZsF ТО ИЗ 
2570 LET A=A+0 tZ? 
2575 LET BzB-c«ezreotz) 
2580 NE 2 
2585 LET Ссох(оғҒғ» 72 
59 LET tiis (B-CrRA Z8) /CCOR CO HO + 
о 61 
ET В= 
ZzF 
A=A+ 
2625 ЕТ Б=Вв+2 +5 (Z2) 
2630 NE z 
2635 LET CzSrs: t SF) 2 
26409 LET Міс(Б-Сғжа/б) /( (6 іза%ЭҒ) ¥ 
{(2<2+&+Р) /6) -Скж2/5) 
2645 GOTO 55 
2650 REM 
2655 LET =M 
2668 LET Б=М 
2665 FOR ZzF TO US 
2670 LET A=A+T tZ? 


2675 LET В=В+2+Т (2) 
2650 NEXT 2 
LET C=TtT +F) 72 

ӘӘ LET Місі(вВ-СжАа/Т) /(стғ(тжғЕ) ж 
Сежт«Е) /6) -Cesze7zvU) 
2695 GOTO 8185 
5000 CLS 

PRINT AT 





24. RI 
S53 RETURN 
6060 PRINT FT 2121,0; U$ 
вата LET R$z"ENTER "Rf 
808580 PRINT ЯТ 21,15-.5£zLEN Н; Р 





81 

816 

6170 LET C=NÆ#(N+F) 72 | 

8160 LET H1= (BZCER/ND ИМЕ СМЕР ¥ | 
(BEN +F) 76) -Сажа/ы) Ё 
8188 LET z&c( B AND M1»sO) ("HEU 
AND Mice | 

8198 RETURN 

S200 CLS 

8210 PRINT AT 10,2;"SORRY, THE С 
OMPUTER IS FULL" 

8220 GOSUB 8240 

8230 GOTO 50 

8240 PRINT AT „Ө; PRESS ""ENTE: 


R “°” KEY TO CONT INUÉ" 





взве RETURN /«- D 1... 


7% 
S8820 GOTO 66505 


5500 PRINT AT S, 


LET а x 2M 


NEXT 

LET ns (F) = 
RETUR 

8560 LET PaF 

LET Y (2) =M 
FOR XzF TO G 
LET B(X) =M 


NEXT X 

LET A$ (2) =" 
ETURN 

85908 LET Q:zF 


o 
(Л 
0) 
о 
2 


NEXT X 

LET R$(4)z"" 
8 RETURN 

6650 LET Т=Р 

LET Y (53) =M 
6655 FOR X=F ТО С 
LET E(X) =M 


NEXT X 

LET A$ (5) =" 

RETURN 

GOSUB 8000 

S550 LET R£z"MRXIMUM PRICE 
GOSUB 5060 


RETURN 
LET КФ-“мАХ VOLUME TRADED ( 


GOSUB 8060 


RETURN 

DIM B$§ (LEN "E 

FOR ZzF TO LEN R$ 

LET Б%(7) CHR (12684CODE В 


NEXT Z 

PETHEN 

LET R=" DAY TO BE CHANGED" 
GOSUB BRUT 

5760 INPUT 

LET R$S“CLOSING BID“ 
GOSUB 506 

RI EO 


LET 
GOSUB 
6790 RETURN 

PRINT AT 06,15-.5xzLEN n£í1, 
TO Yta; ALl, TO vYvt1))5;nT 0,31; 


$ 
8805 PRINT HT F, M; ù$ 
65810 RETURN 
sot PRINT М,15-.5 
TO Yt2 
Iri 
3) 


ОҒ $T 


R£z"UOLUME t(HDS)" 
8060 


I EN А%(2г, 


AT 
Y (2));Rn$&t2, ‘JAT М,31; 


8825 PRINT AT М,15-. 
ТО Ү(3З););8%іЗ, TO { 


2% 
везе GOTO 55805 


LEN "% (3, 
AT M,.,31; 


4 


778635 PRINT 
ТО Yt42)2);R$(4, 


2% 
8585408 
8545 


2 
TO У15));я$ (5, TO 


AT M, 15- 
Me 


GOTO 8805 
PRINT AT M, 


GOTO 6805 

FOR XzsF ТО 29 
LET 82 еп (ХЯҒ) 
МЕХТ 

RETURN 

FOR XzF TO 29 
тыл. (X) zB (ХЕ) 


RETURN 

FOR XzF TO 29 
LET C(X) aC (X+F) 
NEXT X 

RETURN 

FOR XzF TO 29 
LET Dt»x)zDtIX«F) 
NEXT X 

RETURN 

FOR XzsF TO 29 
LET ЕХ? сЕ (Х«Ғ) 


74 
к 
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